inherited frmMatm: TfrmMatm
  Caption = 'frmMatm'
  PixelsPerInch = 96
  TextHeight = 13
  inherited rzszpnlTree: TRzSizePanel
    inherited cxpgcntrlTree: TcxPageControl
      ActivePage = ctsGrid
      inherited ctsTree: TcxTabSheet
        TabVisible = False
      end
      inherited ctsGrid: TcxTabSheet
        inherited cxgrdTree: TcxGrid
          inherited cxgrdbtblvwTree: TcxGridDBTableView
            DataController.DataSource = dsData
            DataController.KeyFieldNames = 'MAT_ID'
            OptionsView.GroupByBox = False
            object cxgrdbtblvwTreeMAT_ID: TcxGridDBColumn
              DataBinding.FieldName = 'MAT_ID'
              Visible = False
            end
            object cxgrdbtblvwTreeMAT_NM: TcxGridDBColumn
              DataBinding.FieldName = 'MAT_NM'
              Width = 130
            end
            object cxgrdbtblvwTreeMAT_NO: TcxGridDBColumn
              DataBinding.FieldName = 'MAT_NO'
              Width = 84
            end
            object cxgrdbtblvwTreeSPEC_ID: TcxGridDBColumn
              DataBinding.FieldName = 'SPEC_ID'
            end
            object cxgrdbtblvwTreeUNIT_ID: TcxGridDBColumn
              DataBinding.FieldName = 'UNIT_ID'
            end
          end
        end
      end
    end
  end
  inherited pnlData: TPanel
    object lbl1: TLabel
      Left = 40
      Top = 40
      Width = 48
      Height = 13
      Caption = #29289#26009#32534#21495
      FocusControl = dbedtMAT_NO
    end
    object lbl2: TLabel
      Left = 40
      Top = 144
      Width = 48
      Height = 13
      Caption = #29289#26009#21517#31216
      FocusControl = dbedtMAT_NM
    end
    object lbl3: TLabel
      Left = 64
      Top = 75
      Width = 24
      Height = 13
      Caption = #35268#26684
    end
    object lbl4: TLabel
      Left = 64
      Top = 109
      Width = 24
      Height = 13
      Caption = #21333#20301
    end
    inline fmeUserInfo1: TfmeUserInfo
      Left = 0
      Top = 336
      Width = 498
      Height = 69
      Align = alBottom
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      inherited dbedtAddDate: TDBEdit
        DataSource = dsData
      end
      inherited dbedtEditDate: TDBEdit
        DataSource = dsData
      end
      inherited cdsAddUser: TClientDataSet
        IndexFieldNames = 'user_id'
        MasterFields = 'ADD_USER'
        MasterSource = dsData
        PacketRecords = 0
      end
      inherited cdsEditUser: TClientDataSet
        IndexFieldNames = 'user_id'
        MasterFields = 'EDIT_USER'
        MasterSource = dsData
        PacketRecords = 0
      end
    end
    object dbedtMAT_NO: TDBEdit
      Left = 88
      Top = 37
      Width = 137
      Height = 19
      Ctl3D = False
      DataField = 'MAT_NO'
      DataSource = dsData
      ParentCtl3D = False
      TabOrder = 0
    end
    object dbedtMAT_NM: TDBEdit
      Left = 88
      Top = 141
      Width = 300
      Height = 19
      Ctl3D = False
      DataField = 'MAT_NM'
      DataSource = dsData
      ParentCtl3D = False
      TabOrder = 3
    end
    object cdbbedtspec_no: TcxDBButtonEdit
      Left = 88
      Top = 71
      DataBinding.DataField = 'spec_no'
      DataBinding.DataSource = dsData
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = cdbbedtspec_noPropertiesButtonClick
      TabOrder = 1
      OnDblClick = cdbbedtspec_noDblClick
      Width = 81
    end
    object dbedtspec_nm: TDBEdit
      Left = 169
      Top = 72
      Width = 121
      Height = 19
      Ctl3D = False
      DataField = 'spec_nm'
      DataSource = dsData
      ParentCtl3D = False
      TabOrder = 4
    end
    object cbbUNIT: TcxDBLookupComboBox
      Left = 88
      Top = 104
      DataBinding.DataField = 'UNIT_ID'
      DataBinding.DataSource = dsData
      Properties.DropDownAutoSize = True
      Properties.DropDownListStyle = lsEditList
      Properties.KeyFieldNames = 'unit_id'
      Properties.ListColumns = <
        item
          Width = 50
          FieldName = 'unit_no'
        end
        item
          FieldName = 'unit_nm'
        end>
      Properties.ListFieldIndex = 1
      Properties.ListSource = dsUnit
      TabOrder = 2
      Width = 137
    end
  end
  inherited adsData: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'select mm.*, sc.spec_no, sc.spec_nm '#13#10'  from u_matm mm, u_spec s' +
      'c'#13#10' where mm.spec_id = sc.spec_id'#13#10'   and mm.add_date = convert(' +
      'varchar(10), getdate(), 126)'#13#10' order by mat_no'
    object adsDataMAT_ID: TIntegerField
      FieldName = 'MAT_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object adsDataMAT_NO: TStringField
      FieldName = 'MAT_NO'
    end
    object adsDataMAT_NM: TStringField
      FieldName = 'MAT_NM'
      Size = 50
    end
    object adsDataSPEC_ID: TIntegerField
      FieldName = 'SPEC_ID'
    end
    object adsDataUNIT_ID: TIntegerField
      FieldName = 'UNIT_ID'
    end
    object adsDataADD_USER: TIntegerField
      FieldName = 'ADD_USER'
    end
    object adsDataADD_DATE: TStringField
      FieldName = 'ADD_DATE'
      Size = 10
    end
    object adsDataEDIT_USER: TIntegerField
      FieldName = 'EDIT_USER'
    end
    object adsDataEDIT_DATE: TStringField
      FieldName = 'EDIT_DATE'
      Size = 10
    end
    object adsDataspec_no: TStringField
      FieldName = 'spec_no'
      ProviderFlags = []
      Size = 5
    end
    object adsDataspec_nm: TStringField
      FieldName = 'spec_nm'
      ProviderFlags = []
    end
  end
  inherited dspData: TDataSetProvider
    UpdateMode = upWhereKeyOnly
  end
  inherited cdsData: TClientDataSet
    AfterOpen = cdsDataAfterOpen
    object cdsDataMAT_ID: TIntegerField
      FieldName = 'MAT_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsDataMAT_NO: TStringField
      DisplayLabel = #29289#26009#32534#21495
      FieldName = 'MAT_NO'
    end
    object cdsDataMAT_NM: TStringField
      DisplayLabel = #29289#26009#21517#31216
      FieldName = 'MAT_NM'
      Size = 50
    end
    object cdsDataSPEC_ID: TIntegerField
      DisplayLabel = #35268#26684
      FieldName = 'SPEC_ID'
    end
    object cdsDataUNIT_ID: TIntegerField
      DisplayLabel = #21333#20301
      FieldName = 'UNIT_ID'
    end
    object cdsDataADD_USER: TIntegerField
      FieldName = 'ADD_USER'
    end
    object cdsDataADD_DATE: TStringField
      FieldName = 'ADD_DATE'
      Size = 10
    end
    object cdsDataEDIT_USER: TIntegerField
      FieldName = 'EDIT_USER'
    end
    object cdsDataEDIT_DATE: TStringField
      FieldName = 'EDIT_DATE'
      Size = 10
    end
    object cdsDataspec_no: TStringField
      FieldName = 'spec_no'
      Size = 5
    end
    object cdsDataspec_nm: TStringField
      FieldName = 'spec_nm'
    end
  end
  object adsUnit: TADODataSet
    Connection = DM.conApp
    CursorType = ctStatic
    CommandText = 'select unit_id, unit_no, unit_nm from u_unit order by unit_no'
    Parameters = <>
    Left = 96
    Top = 185
    object adsUnitunit_id: TIntegerField
      FieldName = 'unit_id'
    end
    object adsUnitunit_no: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'unit_no'
      Size = 4
    end
    object adsUnitunit_nm: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'unit_nm'
    end
  end
  object dsUnit: TDataSource
    DataSet = adsUnit
    Left = 128
    Top = 185
  end
end
